perm filename D.F4[IRC,LCS]1 blob sn#641766 filedate 1982-02-14 generic text, type T, neo UTF8
C	DIMENSION I(4,500)
	DIMENSION I(3)
1	FORMAT(4I)
2	FORMAT(I4,',',I3,',',I1)
	CALL IFILE(1,'DOG')
	CALL OFILE(20,'DDOG')
	K=1
3	READ(1,1,END=4)N,I
C3	READ(1,1,END=4)(I(J,K),J=1,4)
C	I(1,K)=K
	WRITE(20,2)I
CC	WRITE(20,2)(I(J,K),J=2,4)
	K=K+1
	GO TO 3
4	END FILE 20
	END